Zajęcia #2

install.packages("readxl")

library(readxl)

Pytania badawcze:

1. jakie najtańsze a jakie najdroższe
2. jaka dzielnica jest najdroższa
3. gdzie jest najwięcej nieruchomości (dzielnice)
4. rok vs cena
5. ceny developera (ataner) -
6. mieszkania dla studentów (dostępność, dzielnice)
7. osoby niepalące -
8. odsetek mieszkań umeblowanych
9. średnia wielkość pokoju
10. cena vs metraż

Wczytujemy dane z pliku csv

• mamy plik na dysku
• mamy link do pliku

rent <- read.csv2(file = "../data-raw/rent-poznan.csv")
head(rent)

Wczytamy dane z Excela

rent <- read_excel(path = "../data-raw/rent-poznan.xlsx")
rent <- as.data.frame(rent)
head(rent)

Wybieramy kolumny ze zbioru rent

Wybór kolumn z funkcją subset

subset(rent, select = 1)

subset(rent, select = 1:3)

subset(rent, select = c(1,5, 10))

subset(rent, select = c("id", "price", "flat_area"))

subset(rent, select = id:flat_area)

Wybór wierszy

rent[1,]

rent[1:3,]

rent[c(1, 5, 10), ]

rent[nrow(rent), ] ## tail(rent, 1)

mtcars["Mazda RX4",] # używam tutaj nazw wierszy

Wybieram mieszkania, których cena była niższa lub równa 300 zł

Wybieramy wiersze i kolumny z funkcją subset

subset(rent,
       subset = price > 300 & price < 500,
       select = c("id", "price", "ad_title", "flat_area"))

subset(rent,
       price > 300 & price < 500,
       c("id", "price", "ad_title", "flat_area"))

Zadania

• wybrać mieszkania dla studentów (1 / 0) o cenie mniejszej niż 1000 (133)

subset(rent, flat_for_students == 1 & price < 1000)

subset(rent, flat_for_students == TRUE & price < 1000)

subset(rent, flat_for_students == T & price < 1000)

• wybrać mieszkania o powierzchni do 50 metrów (10 939)

subset(rent, flat_area <= 50)

• wybrać mieszkania z Centrum o powierzchni do 50 metrów (1 059)

subset(rent, flat_area <= 50 & quarter == "centrum") ## to jest źle (mała litera)

subset(rent, flat_area <= 50 & quarter == "Centrum")

• wybrać mieszkania z Centrum lub Rataj o powierzchni do 50 metrów (1 916)

subset(rent, (quarter == "Centrum" | quarter == "Rataje") & flat_area <= 50)

subset(rent, quarter %in% c("Centrum", "Rataje") & flat_area <= 50)

• wybrać mieszkania, które mają depozyt równy cenie (2 494)

subset(rent, flat_deposit == price, c("price", "flat_deposit"))

subset(rent, (flat_deposit/2) > 3*price, c("price", "flat_deposit"))

5. ceny developera (ataner) -

subset(rent, 
       grepl("ataner", ad_title, ignore.case = T), 
       c("ad_title", "price"))